home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / MacTCP / TurboTCP / TurboTCP.source / cast.h next >
Encoding:
Text File  |  1993-07-09  |  573 b   |  22 lines  |  [TEXT/KAHL]
  1. /*
  2.     Cast.h
  3.  
  4.     Provides a debug macro which casts an object, and asserts that the
  5.     object is a member of the class cast to.
  6.  
  7. */
  8.  
  9. // thanks to a unknown contributor to "comp.sys.mac.oop.tcl" for this file -ES
  10.  
  11.  
  12. #ifdef __TCL_DEBUG__
  13.     static CObject * gCastObject;
  14.     #define CAST( object, class )   (gCastObject = (CObject*)(object), ASSERT(member(gCastObject, class)), (class *) (gCastObject))
  15. #else
  16.     #define CAST( object, class )   ((class *) (object))
  17. #endif
  18.  
  19.  
  20.     #define CheckedCast(obj,type) \
  21.     (((obj) && member((obj),type)) ? ((type *) (obj)) : nil)
  22.